HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/BUS/LN2.4.5.sit/LN2.4.5/Life Note 2.4.5e/background_23991.xml

Extensible Markup Language | 1996-10-19 | 22KB | 558 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>23991</id>
    <filler1>0</filler1>
    <bitmap>BMAP_31359.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3284.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>16</top>
            <right>397</right>
            <bottom>50</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Diary1</name>
        <script>on closeFieldChLineend closeField</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>53</top>
            <right>397</right>
            <bottom>87</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Diary2</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>90</top>
            <right>397</right>
            <bottom>124</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Diary3</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>127</top>
            <right>397</right>
            <bottom>161</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Diary4</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>95</left>
            <top>164</top>
            <right>397</right>
            <bottom>198</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Diary5</name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>16</top>
            <right>89</right>
            <bottom>43</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>11</textHeight>
        <name>Year1</name>
        <script>on mouseUplock screenif height of bg field "Diary1" is 34 thensetDiaryset textStyle of me to boldset style of me to rectangleset height of bg field "Diary1" to 182set location of bg field "Diary1" to 246,107hide bg field "Diary2"hide bg field "Diary3"hide bg field "Diary4"hide bg field "Diary5"unlock screen with visual effect wipe downelsesetDiaryunlock screen with visual effect wipe upend ifend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>53</top>
            <right>89</right>
            <bottom>80</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>11</textHeight>
        <name>Year2</name>
        <script>on mouseUplock screenif height of bg field "Diary2" is 34 thensetDiaryset textStyle of me to boldset style of me to rectangleset height of bg field "Diary2" to 182set location of bg field "Diary2" to 246,107hide bg field "Diary3"hide bg field "Diary4"hide bg field "Diary5"unlock screen with visual effect wipe downelsesetDiaryunlock screen with visual effect wipe upend ifend mouseUp</script>
    </part>
    <part>
        <id>19</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>90</top>
            <right>89</right>
            <bottom>117</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>11</textHeight>
        <name>Year3</name>
        <script>on mouseUplock screenif height of bg field "Diary3" is 34 thensetDiaryset textStyle of me to boldset style of me to rectangleset height of bg field "Diary3" to 182set location of bg field "Diary3" to 246,107hide bg field "Diary4"hide bg field "Diary5"unlock screen with visual effect wipe downelsesetDiaryunlock screen with visual effect wipe upend ifend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>127</top>
            <right>89</right>
            <bottom>154</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>11</textHeight>
        <name>Year4</name>
        <script>on mouseUplock screenif height of bg field "Diary4" is 34 thensetDiaryset textStyle of me to boldset style of me to rectangleset height of bg field "Diary4" to 182set location of bg field "Diary4" to 246,107hide bg field "Diary5"unlock screen with visual effect wipe downelsesetDiaryunlock screen with visual effect wipe upend ifend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>164</top>
            <right>89</right>
            <bottom>191</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>11</textHeight>
        <name>Year5</name>
        <script>on mouseUplock screenif height of bg field "Diary5" is 34 thensetDiaryset textStyle of me to boldset style of me to rectangleset height of bg field "Diary5" to 182set location of bg field "Diary5" to 246,107unlock screen with visual effect wipe downelsesetDiaryunlock screen with visual effect wipe upend ifend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>119</left>
            <top>206</top>
            <right>207</right>
            <bottom>230</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Apple Chancery</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>date</name>
        <script>on mouseUpplay "harpsichord" "c5"if enabled of bg btn "ﾃｧﾃŒ ﾃｨﾃｺ" is true thenset enabled of bg btn "ﾃｧﾃŒ ﾃｨﾃｺ" to falseelseset enabled of bg btn "ﾃｧﾃŒ ﾃｨﾃｺ" to trueend ifend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>12</left>
            <top>205</top>
            <right>35</right>
            <bottom>228</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20001</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseStillDownvisual effect scroll right fastif short name of this card is "D0000" thengo to last card of this bkgndelsego to prevend ifend mouseStillDown</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>88</left>
            <top>205</top>
            <right>111</right>
            <bottom>229</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20003</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseStillDownvisual effect scroll left fastif number of this card is number of last card in this bkgnd thengo to first card of this bkgndelsego to nextend ifend mouseStillDown</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>205</top>
            <right>84</right>
            <bottom>227</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Index</name>
        <script>on mouseUpvisual effect shrink to centergo to card "D0000"end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>314</left>
            <top>208</top>
            <right>397</right>
            <bottom>230</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｧﾃŒ ﾃｨﾃｺ</name>
        <script>on mouseUplock screenset lockMessages to trueplay "harpsichord" "d"if the optionKey is down thenanswer "ﾃ…uDiary Noteﾃ…vﾃ‡ﾃεｫSﾃ謁ﾃ…[ﾃ姥ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Yes" or "No"if it is "No" then exit mouseUpgo to cd "D0000"go to nextrepeat for (number of cards in this bkgnd -1)doMenu "Delete Card"end repeatgo to cd "D0000"elseanswer "ﾃ‡ﾂｱﾃ‡ﾃε雨ﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Yes" or "No"if it is "No" then exit mouseUpdoMenu "Delete Card"if short name of this card is "Stationery" then go to card "D0000"unlock screen with visual effect shrink to centerend ifend mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>220</left>
            <top>208</top>
            <right>303</right>
            <bottom>230</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open</name>
        <script>on mouseUpglobal dateTset lockMessages to trueplay "harpsichord" "c6"ask "ﾃ､Jﾃ‡竕 ﾃ謁ﾃ…[ﾃ姥ﾃ‡ﾃεｬﾋ凖ｯtﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③ﾃ⑿ex: ﾃ･ﾃｩ/ﾃｬﾋ凖⒀" with item 2 of dateT & "/" & item 3 of dateTif it is empty then exit mouseUpput it into pageput "D" & char 5 to 8 of CvSort(FindDate(CvItem("1996/" & page),"C")) into pagevisual effect stretch from centergo to cd pageif the result is not empty then newDate pageend mouseUp</script>
    </part>
    <part>
        <id>23</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>95</left>
            <top>16</top>
            <right>399</right>
            <bottom>198</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>lockCover</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>23</id>
        <text><span class="style9"></span><span class="style46">5 years Diary</span><span class="style9"></span><span class="style20">Locking on Diary Note</span></text>
    </content>
    <name>Diary</name>
    <script>on openBackgroundglobal dateT,PWif item 3 of PW is 1 thenask "ﾃｬoﾃｲ^ﾃ英ﾃ厩ﾃ嘉ｨﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with "Input Password ..."if it is not cd field "PassWord" of cd "Shurey" thengo to cd "MenuIndex"exit openBackgroundend ifend iflock screenif item 1 of dateT > bg field "Year5" of cd "D0000" thenanswer "ﾃｪVﾃｮNﾃ‡竏†ﾃ‡ﾂｻﾃ‡ﾃ凝‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ‡ﾃε‡竕暗②ﾃｧXﾃｪVﾃ‡ï｣ｿﾃｧsﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡竏妥③" with "Yes" or "No"if it is "No" then exit openBackground-- ﾃ雨ﾃ頴ﾃ…[ﾃ‡ﾃεｧXﾃｪVput bg field "Year2" into bg field "Year1"put bg field "Year3" into bg field "Year2"put bg field "Year4" into bg field "Year3"put bg field "Year5" into bg field "Year4"put item 1 of dateT into bg field "Year5"put " " & bg field "Year1" && "-" && bg field "Year5" & " " into line 4 of cd field "Cover"-- ﾃ､eﾃ謁ﾃ…[ﾃ姥ﾃ‡ﾃεｧXﾃｪVput "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" into CWrepeat for (number of cards of this bkgnd - 1)set cursor to busygo to nextput char 2 to 5 of short name of this card into CNput bg field "Year2" into bg field "Year1"put bg field "Year3" into bg field "Year2"put bg field "Year4" into bg field "Year3"put bg field "Year5" into bg field "Year4"put item 1 of dateT & "/" & char 1 to 2 of CN & "/" & char 3 to 4 of CN into dateRput dateR into bg field "Year5"put CvItem(dateR) into dateRconvert dateR to long dateif the result is "Invalid date" thenput empty into bg field "Year5"elseconvert dateR to dateItemsput " " & item (item 7 of dateR) of CW after bg field "Year5"end ifput bg field "Diary2" into bg field "Diary1"put bg field "Diary3" into bg field "Diary2"put bg field "Diary4" into bg field "Diary3"put bg field "Diary5" into bg field "Diary4"put empty into bg field "Diary5"end repeatend ifhide bg field "lockCover"go to cd "D0000"end openBackgroundon newDate pageanswer char 2 to 3 of page & "ﾃ･ﾃｩ" & char 4 to 5 of page & "ﾃｬﾋ™ ﾃ‡ﾃε謁ﾃ…[ﾃ姥ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return & "ﾃｪVﾃ｣Kﾃ‡窶ｦﾃｧﾃ湘ｪﾂｨﾃ‡ﾂｵﾃ‡ﾆ津‡窶｡ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ⑨" with "Yes" or "No"if it is "No" then exit newDatedoMenu "New Card"set name of this card to pagepush cardput char 2 to 3 of page & "/" & char 4 to 5 of page into pageput "January,February,March,April,May,June,July,August,September,October,November,December" into CMput "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday" into CWrepeat with Year = 6 to 10set cursor to busyput (bg field Year of cd "D0000") & "/" & page & " " into bg field Yearput CvItem(bg field Year) into dateRconvert dateR to dateItemsif the result is "Invalid date" and page is "02/29" thenput empty into bg field Yearput "9999,2,29" into dateRelseput item (item 7 of dateR) of CW after bg field Yearend ifend repeatput item (item 2 of dateR) of CM && item 3 of dateR into bg field "date"lock screensort cards of this bkgnd by name of cardpop cardend newDateon setDiaryput 33 into Rrepeat with I = 1 to 5set cursor to busyset textStyle of bg field (I+5) to plainset style of bg field (I+5) to shadowset height of bg field I to 34set location of bg field I to 246,Radd 37 to Rshow bg field Iend repeatif short name of this card is "D0000" then exit to HyperCardplay "harpsichord" "c5"end setDiaryon closeBackgroundset enabled of bg btn "ﾃｧﾃŒ ﾃｨﾃｺ" to falseshow bg field "lockCover"end closeBackground</script>
</background>